home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / qbgps240.zip / GPS.BI < prev    next >
Text File  |  1994-12-17  |  17KB  |  357 lines
  1. '=============== DATE/TIME FUNCTIONS ==========================================
  2. DECLARE FUNCTION DayOfWeek% (AnyDate$) 'MM-DD-YYYY 1980-2107 0=su..6=sa
  3. DECLARE FUNCTION DayStr$ (BYVAL WeekDay%) '0=Sunday ... 6=Saturday
  4. DECLARE FUNCTION DayWeek% (BYVAL Mon%, BYVAL Day%, BYVAL Year%)
  5. DECLARE FUNCTION EventDone% ()  'use this with the EventSet subroutine
  6. DECLARE FUNCTION LongDate$ (Date2Byte$) 'ret MM-DD-YYYY (1980 to 2107)
  7. DECLARE FUNCTION LongTime$(TwoByte$)
  8. DECLARE FUNCTION MonthStr$ (BYVAL MonthVal%) '1=January ... 12=December
  9. DECLARE FUNCTION SetDate% (BYVAL Mon%, BYVAL Day%, BYVAL Year%) '-1=err
  10. DECLARE FUNCTION SetTime% (BYVAL Hrs%, BYVAL Min%, BYVAL Sec%, _
  11.                            BYVAL HSec%) '-1=err  O=o.k.
  12. DECLARE FUNCTION ShortDate$ (AnyDate$) 'in MM-DD-YYYY (1980 to 2107)
  13. DECLARE FUNCTION ShortTime$ (Time24$)  'Time24$ in 00:00 to 23:59 form
  14. DECLARE FUNCTION Snooze% (BYVAL TickVal%)
  15. DECLARE FUNCTION TickTime$ (BYVAL TickVal&)
  16. DECLARE FUNCTION TimerRead& (BYVAL TimerNumber%) 'O to 15
  17. DECLARE FUNCTION TmrRd& (SEG Tmr&)
  18. DECLARE FUNCTION Timr&()
  19. DECLARE FUNCTION WeekDay% (Mon%, Day%, Year%) 'do NOT use BYVAL keyword
  20.  
  21. DECLARE SUB EventSet  (BYVAL Microseconds&)
  22. DECLARE SUB EventWait (BYVAL Microseconds&)
  23. DECLARE SUB GetDate (SEG Mon%, SEG Day%, SEG Year%, SEG DWeek%)
  24. DECLARE SUB GetTime (SEG Hrs%, SEG Min%, SEG Sec%,  SEG HSec%)
  25. DECLARE SUB Hibernate (BYVAL TickVal%)
  26. DECLARE SUB TimerReset (BYVAL TimerNumber%) 'O to 15
  27. DECLARE SUB TmrRst (SEG Tmr&)
  28. '==============================================================================
  29.  
  30.  
  31. '=============== DOS FILE (HANDLE-BASED) FUNCTIONS ============================
  32. DECLARE FUNCTION DOSFAttr% (FileName$)
  33. DECLARE FUNCTION DOSFPtr& (BYVAL Handle%)
  34. DECLARE FUNCTION DOSFSize& (BYVAL Handle%)
  35. DECLARE FUNCTION DOSRtnErr% ()
  36.  
  37. DECLARE SUB DOSClose (BYVAL Handle%)
  38. DECLARE SUB DOSDel (FileName$)
  39. DECLARE SUB DOSFAttrSet (FileName$, BYVAL AttributeByte%)
  40. DECLARE SUB DOSFDateGet (BYVAL Handle%, SEG Mon%, SEG Day%, SEG Year%, _
  41.                          SEG Hr%, SEG Min%, SEG Sec%)
  42. DECLARE SUB DOSFDateSet (BYVAL Handle%, BYVAL Mon%, BYVAL Day%, BYVAL Year%, _
  43.                          BYVAL Hr%, BYVAL Min%, BYVAL Sec%)
  44. DECLARE SUB DOSFPtrMove (BYVAL Handle%, BYVAL PtrMovement&)
  45. DECLARE SUB DOSFPtrSet (BYVAL Handle%, BYVAL NewPtr&)
  46. DECLARE SUB DOSOpen (FileName$,BYVAL ReadWrite%,BYVAL InitPtr%,SEG Handle%)
  47. DECLARE SUB DOSRdMem (BYVAL Handle%, BYVAL MSeg%, BYVAL MPtr%, BYVAL NBytes%) 
  48. DECLARE SUB DOSRdStr (BYVAL Handle%, Text$, BYVAL NBytes%)
  49. DECLARE SUB DOSRdVar (BYVAL Handle%, SEG TypeVar as Any, BYVAL NBytes%)
  50. DECLARE SUB DOSWrtMem (BYVAL Handle%, BYVAL MSeg%, BYVAL MPtr%, BYVAL NBytes%) 
  51. DECLARE SUB DOSWrtStr (BYVAL Handle%, Text$)
  52. DECLARE SUB DOSWrtVar (BYVAL Handle%, SEG TypeVar as Any, BYVAL NBytes%)
  53. '==============================================================================
  54.  
  55.  
  56. '=============== FILE/DIRECTORY FUNCTIONS =====================================
  57. DECLARE FUNCTION CurrentDir$ ()
  58. DECLARE FUNCTION DirExist%  (FileName$)
  59. DECLARE FUNCTION DriveDir$ (BYVAL Drive%) '0=current 1=A: 2=B: etc.
  60. DECLARE FUNCTION FileExist% (FileName$)
  61. DECLARE FUNCTION FindFile$ (BYVAL First%, Search$, BYVAL AttrMask%)
  62. DECLARE FUNCTION StartUpDir$  ()
  63. DECLARE FUNCTION StartUpExec$ ()
  64.  
  65. DECLARE SUB ChgDir (NewDir$)
  66. DECLARE SUB FileToMem (BYVAL FileNum%, BYVAL MemSeg%, _
  67.                        BYVAL MemAdr%,  BYVAL NumBytes%)
  68. DECLARE SUB FileToVar (BYVAL FileNum%, SEG Var, BYVAL VarSize%)
  69. DECLARE SUB FindFileS (BYVAL First%, Search$, BYVAL AttrMask%, _
  70.                        SEG TypeVar as ANY)
  71.  'DECLARE SUB FindFileS (BYVAL First%, Search$, BYVAL AttrMask%, _
  72.  '                       BYVAL SegAdr%, BYVAL PtrAdr%)
  73.  'alternate form puts 2O-byte string at segmented address SegAdr%:PtrAdr%
  74. DECLARE SUB MemToFile (BYVAL FileNum%, BYVAL MemSeg%, _
  75.                        BYVAL MemAdr%,  BYVAL NumBytes%)
  76. DECLARE SUB VarToFile (BYVAL FileNum%, SEG Var, BYVAL VarSize%)
  77. '==============================================================================
  78.  
  79.  
  80.  
  81. '=============== JOYSTICK FUNCTIONS ===========================================
  82. DECLARE FUNCTION JoyStkAX% ()
  83. DECLARE FUNCTION JoyStkAY% ()
  84. DECLARE FUNCTION JoyStkAFire% ()
  85. DECLARE FUNCTION JoyStkABase% ()
  86. DECLARE FUNCTION JoyStkBX% ()
  87. DECLARE FUNCTION JoyStkBY% ()
  88. DECLARE FUNCTION JoyStkBFire% ()
  89. DECLARE FUNCTION JoyStkBBase% ()
  90. '==============================================================================
  91.  
  92.  
  93.  
  94. '=============== KEYBOARD FUNCTIONS ============================================
  95. DECLARE FUNCTION CapsLock% ()
  96. DECLARE FUNCTION GetKey% ()
  97. DECLARE FUNCTION KeyAlt% ()
  98. DECLARE FUNCTION KeyLAlt% ()
  99. DECLARE FUNCTION KeyRAlt% ()
  100. DECLARE FUNCTION KeyCtrl% ()
  101. DECLARE FUNCTION KeyLCtrl% ()
  102. DECLARE FUNCTION KeyRCtrl% ()
  103. DECLARE FUNCTION KeyPending% ()
  104. DECLARE FUNCTION KeyShift% ()
  105. DECLARE FUNCTION KeyLShift% ()
  106. DECLARE FUNCTION KeyRShift% ()
  107. DECLARE FUNCTION NumLock% ()
  108. DECLARE FUNCTION ScrollLock% ()
  109. DECLARE FUNCTION WaitKey% ()
  110.  
  111. DECLARE SUB CapsLockOn  ()
  112. DECLARE SUB CapsLockOff ()
  113. DECLARE SUB NumLockOn  ()
  114. DECLARE SUB NumLockOff ()
  115. DECLARE SUB PressAnyKey ()
  116. DECLARE SUB ScrollLockOn  ()
  117. DECLARE SUB ScrollLockOff ()
  118. DECLARE SUB SetTypematic ( BYVAL Rate%, BYVAL Delay% )
  119. DECLARE SUB TypeAhead (Text$)
  120. DECLARE SUB WaitSpecKey (BYVAL SpecKey%)
  121. '==============================================================================
  122.  
  123.  
  124.  
  125. '=============== MEMORY FUNCTIONS =============================================
  126. DECLARE FUNCTION BitGet% (BYVAL ArraySeg%, BYVAL Element%)
  127. DECLARE FUNCTION DefSeg% ()
  128. DECLARE FUNCTION EnvironSeg%()
  129. DECLARE FUNCTION GetMem% (BYVAL NumPara%)
  130. DECLARE FUNCTION LowMem% (BYVAL MemAdr%)
  131. DECLARE FUNCTION MemChkSum&(BYVAL MSeg%, BYVAL MPtr%, BYVAL NBytes%)
  132. DECLARE FUNCTION MemCompare% (BYVAL Seg1%, BYVAL Adr1%, _
  133.                               BYVAL Seg2%, BYVAL Adr2%, BYVAL Bytes%)
  134. DECLARE FUNCTION PeekByte%  (BYVAL MemSeg%, BYVAL MemAdr%)
  135. DECLARE FUNCTION PeekWord%  (BYVAL MemSeg%, BYVAL MemAdr%)
  136. DECLARE FUNCTION PeekLong&  (BYVAL MemSeg%, BYVAL MemAdr%)
  137. DECLARE FUNCTION PSPSeg%()
  138. DECLARE FUNCTION ReadCMOS% (BYVAL CMOSAdr%)
  139. DECLARE FUNCTION RelMem% (BYVAL SegAdr%) 'specify segment to release
  140.  
  141. DECLARE SUB BitSet (BYVAL ArraySeg%, BYVAL Element%, BYVAL Value%)
  142.                                                     'where Value%=0 or 1
  143. DECLARE SUB Encrypt (BYVAL MemSeg%, BYVAL MemPtr%, BYVAL NumBytes%, _
  144.                      BYVAL XORByteVal%)
  145. DECLARE SUB MemCopy (BYVAL Seg1%, BYVAL Adr1%, _
  146.                      BYVAL Seg2%, BYVAL Adr2%, BYVAL Bytes%)
  147. DECLARE SUB MemFillByte (BYVAL MemSeg%, BYVAL MemPtr%, _
  148.                          BYVAL NumBytes%, BYVAL FillValue%)
  149. DECLARE SUB MemFillWord (BYVAL MemSeg%, BYVAL MemPtr%, _
  150.                          BYVAL NumWords%, BYVAL FillValue%)
  151. DECLARE SUB MemSwap (BYVAL Seg1%, BYVAL Adr1%, _
  152.                      BYVAL Seg2%, BYVAL Adr2%, BYVAL Bytes%)
  153. DECLARE SUB MemXORByte (BYVAL MemSeg%, BYVAL MemPtr%, BYVAL NumBytes%, _
  154.                         BYVAL XORByteVal%)
  155. DECLARE SUB MemXORWord (BYVAL MemSeg%, BYVAL MemPtr%, BYVAL NumWords%, _
  156.                         BYVAL XORWordVal%)
  157. DECLARE SUB MinimizePtr( BYVAL OldSeg%, BYVAL OldPtr%, SEG NewSeg%, SEG NewPtr%)
  158. DECLARE SUB PokeByte  (BYVAL MemSeg%, BYVAL MemAdr%, BYVAL Value%)
  159. DECLARE SUB PokeWord  (BYVAL MemSeg%, BYVAL MemAdr%, BYVAL Value%)
  160. DECLARE SUB PokeLong  (BYVAL MemSeg%, BYVAL MemAdr%, BYVAL Value&)
  161. DECLARE SUB VarSegPtr (SEG Variable as ANY, SEG SegAdr%, SEG PtrAdr%)
  162. DECLARE SUB WriteCMOS (BYVAL CMOSAdr%, BYVAL Value%) 'addr 0 to 9 only
  163. '==============================================================================
  164.  
  165.  
  166. '=============== MOUSE FUNCTIONS ==============================================
  167. DECLARE FUNCTION MsBtn% ()
  168. DECLARE FUNCTION MsCBtn% ()
  169. DECLARE FUNCTION MsClickCount% (BYVAL WhichButton%)
  170. DECLARE FUNCTION MsLBtn% ()
  171. DECLARE FUNCTION MsRBtn% ()
  172. DECLARE FUNCTION MsReset% ()
  173. DECLARE FUNCTION MsWaitClick% (BYVAL ClickMask%)
  174.  
  175. DECLARE SUB MsGetCsrPos (BYVAL CsrType%, SEG Row%, SEG Column%)
  176. DECLARE SUB MsGetSensPct (SEG XMicks%, SEG YMicks%, SEG DblSpdMicks%)
  177. DECLARE SUB MsGrPtrShape (BYVAL HotSptLeft%, BYVAL HotSptTop%, _
  178.                           BYVAL SegPtrBfr% , BYVAL OfsPtrBfr%)
  179. DECLARE SUB MsHide ()
  180. DECLARE SUB MsSetCsrPos (BYVAL CsrType%, BYVAL Row%, BYVAL Column%)
  181. DECLARE SUB MsSetLimit (BYVAL CsrType%,BYVAL MinRow%, BYVAL MinColumn%,_
  182.                                        BYVAL MaxRow%, BYVAL MaxColumn%)
  183. DECLARE SUB MsSetSens (BYVAL XMicks%, BYVAL YMicks%, BYVAL DblSpdMicks%)
  184. DECLARE SUB MsSetSensPct (BYVAL XMicks%, BYVAL YMicks%, BYVAL DblSpdMicks%)
  185. DECLARE SUB MsShow ()
  186. DECLARE SUB MsTxtPtrType (BYVAL SHPtr%, BYVAL ANDMask%, BYVAL XORMask%)
  187. '==============================================================================
  188.  
  189.  
  190.  
  191. '=============== NUMERIC FUNCTIONS ============================================
  192. DECLARE FUNCTION BCDtoDEC% (BYVAL BCDVal%)
  193. DECLARE FUNCTION Caps% (BYVAL AsciiValue%)
  194. DECLARE FUNCTION ChgBit% (BYVAL Value%, BYVAL BitPos%, BYVAL Oper%)
  195. DECLARE FUNCTION DECtoBCD% (BYVAL DECVal%)
  196. DECLARE FUNCTION HighWord% (BYVAL LongInt& )
  197. DECLARE FUNCTION InBox% (BYVAL Row%,  BYVAL Column%, _
  198.                          BYVAL Row1%, BYVAL Column1%,_
  199.                          BYVAL Row2%, BYVAL Column2%)
  200. DECLARE FUNCTION InRange% (BYVAL Test%, BYVAL LowVal%, BYVAL HighVal%)
  201. DECLARE FUNCTION Larger%  (BYVAL Value1%, BYVAL Value2%)
  202. DECLARE FUNCTION LargerL& (BYVAL Value1&, BYVAL Value2&)
  203. DECLARE FUNCTION LowWord%  (BYVAL LongInt& )
  204. DECLARE FUNCTION NoCaps% (BYVAL AsciiValue%)
  205. DECLARE FUNCTION PowerOf2% (BYVAL Power%)  'Power%=0 to 15
  206. DECLARE FUNCTION RandNum% (BYVAL MaxNum%)
  207. DECLARE FUNCTION ShiftLeft%  (BYVAL Value%, BYVAL NumBits%)
  208. DECLARE FUNCTION ShiftRight% (BYVAL Value%, BYVAL NumBits%)
  209. DECLARE FUNCTION Smaller%  (BYVAL Value1%, BYVAL Value2%)
  210. DECLARE FUNCTION SmallerL& (BYVAL Value1&, BYVAL Value2&)
  211. DECLARE FUNCTION SwapBytes%  (BYVAL Value%)
  212. DECLARE FUNCTION TestBit% (BYVAL Number%, BYVAL BitPosition%)
  213. DECLARE FUNCTION UnsComp% (BYVAL Value1%, BYVAL Value2%)
  214.  
  215. DECLARE SUB SetInBox (SEG   Row%,  SEG   Column%, _
  216.                       BYVAL Row1%, BYVAL Column1%, _
  217.                       BYVAL Row2%, BYVAL Column2%)
  218. DECLARE SUB SetInRange (SEG Var%, BYVAL LoVal%, BYVAL HiVal%)
  219. '==============================================================================
  220.  
  221.  
  222. '=============== SCREEN (ANSI) FUNCTIONS ======================================
  223. DECLARE FUNCTION ANSIBgColor% ()
  224. DECLARE FUNCTION ANSIFgColor% ()
  225. DECLARE FUNCTION ANSIKey%     ()
  226. DECLARE FUNCTION ANSIComStatus% (BYVAL ComPortNum%)
  227.  
  228. DECLARE SUB ANSICls ()
  229. DECLARE SUB ANSIColor (BYVAL Foreground%, BYVAL Background%)
  230. DECLARE SUB ANSIComInit(BYVAL ComPortNum%, BYVAL BaudRate%, _
  231.                         BYVAL Parity%, BYVAL WordSize%, BYVAL StopBits%)
  232. DECLARE SUB ANSICsrRest ()
  233. DECLARE SUB ANSICsrSave ()
  234. DECLARE SUB ANSIDelLine ()
  235. DECLARE SUB ANSIDown (BYVAL NumRows%)
  236. DECLARE SUB ANSIHandle (BYVAL Handle%)
  237. DECLARE SUB ANSIHandleIn (BYVAL HandleIn%)
  238. DECLARE SUB ANSIHandleOut (BYVAL HandleOut%)
  239. DECLARE SUB ANSIHome ()
  240. DECLARE SUB ANSILeft (BYVAL NumColumns%)
  241. DECLARE SUB ANSILoc (BYVAL Row%, BYVAL Column%)
  242. DECLARE SUB ANSIPrt (Text$)
  243. DECLARE SUB ANSIPrtC (Text$)
  244. DECLARE SUB ANSIPrtNum (BYVAL Number%)
  245. DECLARE SUB ANSIRight (BYVAL NumColumns%)
  246. DECLARE SUB ANSIUp (BYVAL NumRows%)
  247. '==============================================================================
  248.  
  249.  
  250. '=============== SCREEN FUNCTIONS =============================================
  251. DECLARE FUNCTION ColorAttr%( BYVAL Foreground%, BYVAL Background%)
  252. DECLARE FUNCTION ColorPDQ% ()
  253. DECLARE FUNCTION ColorQB% ()
  254. DECLARE FUNCTION MemToScreen%(BYVAL MSeg%, BYVAL MPtr%, BYVAL Row%, BYVAL Col%)
  255. DECLARE FUNCTION ScreenLoad% (FileName$)
  256. DECLARE FUNCTION ScreenSave% (FileName$)
  257. DECLARE FUNCTION ScreenTicker% ( Message$, BYVAL Row%, _
  258.                                  BYVAL StartColumn%, BYVAL EndColumn%, _
  259.                                  BYVAL ColorAttrib%, BYVAL ExitKey%, _
  260.                                  BYVAL Speed%)
  261. DECLARE FUNCTION ScreenToMem%(BYVAL MSeg%, BYVAL MPtr%, _
  262.                               BYVAL Row1%, BYVAL Col1%, _
  263.                               BYVAL Row2%, BYVAL Col2%)
  264. DECLARE FUNCTION VideoPtr%(BYVAL Row%, BYVAL Column%)
  265. DECLARE FUNCTION VideoSeg%()
  266. DECLARE FUNCTION VideoSegPDQ%()
  267. DECLARE FUNCTION VideoSegQB%()
  268.  
  269. DECLARE SUB AttrColor (BYVAL Attr%, SEG Foreground%, SEG Background%)
  270. DECLARE SUB Clrs (BYVAL Attr%)
  271. DECLARE SUB Prnt (Text$, BYVAL Row%, BYVAL Col%, BYVAL Attr%)
  272. DECLARE SUB PrntOver (Text$, BYVAL Row%, BYVAL Col%)
  273. DECLARE SUB ScreenAOX (BYVAL Row1%, BYVAL Column1%, _
  274.                        BYVAL Row2%, BYVAL Column2%, _
  275.                        BYVAL ANDmask%, BYVAL ORmask%, BYVAL XORmask%)
  276. DECLARE SUB ScreenBlink (BYVAL Row1%, BYVAL Column1%, _
  277.                          BYVAL Row2%, BYVAL Column2%, _
  278.                          BYVAL BlinkState%)
  279. DECLARE SUB ScreenBold  (BYVAL Row1%, BYVAL Column1%, _
  280.                          BYVAL Row2%, BYVAL Column2%, _
  281.                          BYVAL BoldState%)
  282. DECLARE SUB ScreenBox (BYVAL Row1%, BYVAL Column1%, _
  283.                        BYVAL Row2%, BYVAL Column2%, _
  284.                        BYVAL BoxType%, BYVAL Attr%)
  285. DECLARE SUB ScreenFade (BYVAL Fade%,BYVAL MemSeg%) 'note use of BYVAL keyword
  286. DECLARE SUB ScreenFill (BYVAL Row1%, BYVAL Column1%, _
  287.                         BYVAL Row2%, BYVAL Column2%, _
  288.                         BYVAL ASCIIChar%, BYVAL Attr%)
  289. DECLARE SUB ScreenMarquee (BYVAL Row1%, BYVAL Column1%, _
  290.                            BYVAL Row2%, BYVAL Column2%, BYVAL Attr%)
  291. DECLARE SUB ScreenPrint ()
  292. DECLARE SUB ScreenScroll (BYVAL Numlines%, _
  293.                           BYVAL Row1%, BYVAL Column1%, _
  294.                           BYVAL Row2%, BYVAL Column2%, BYVAL Attribute%)
  295. DECLARE SUB ScreenString (Text$, BYVAL Row%, BYVAL Column%, BYVAL NumBytes%)
  296. DECLARE SUB SetColorPDQ (BYVAL Attr%)
  297. DECLARE SUB SetColorQB (BYVAL Attr%)
  298. DECLARE SUB SetTextMode ()
  299. DECLARE SUB SetVideoSeg (BYVAL NewVideoSeg%)
  300. DECLARE SUB SetVideoSegPDQ (BYVAL NewVideoSeg%)
  301. DECLARE SUB SetVideoSegQB (BYVAL NewVideoSeg%)
  302. '==============================================================================
  303.  
  304.  
  305. '=============== STRING FUNCTIONS =============================================
  306. DECLARE FUNCTION AddCRLF$ (Text$)
  307. DECLARE FUNCTION AppLink$ ()
  308. DECLARE FUNCTION AscMid% (Text$, BYVAL Position%)
  309. DECLARE FUNCTION Bin$ (BYVAL IntVal%)
  310. DECLARE FUNCTION Center$ (Text$, BYVAL LineWidth%)
  311. DECLARE FUNCTION ChainLink$ ()
  312. DECLARE FUNCTION InstrFwd% (BYVAL StartAt%, SearchIn$, LookFor$)
  313. DECLARE FUNCTION InstrRev% (BYVAL StartAt%, SearchIn$, LookFor$)
  314. DECLARE FUNCTION IntStr$  (BYVAL IntVal%)  'convert to 2-byte string
  315. DECLARE FUNCTION IStr$ (BYVAL IntVal%) 'same as LTRIM$(STR$(IntVal%))
  316. DECLARE FUNCTION LJustify$ (Text$, BYVAL LineWidth%)
  317. DECLARE FUNCTION LongStr$ (BYVAL LongVal&) 'convert to 4-byte string
  318. DECLARE FUNCTION LStr$ (BYVAL LongVal&) 'same as LTRIM$(STR$(LongVal&))
  319. DECLARE FUNCTION NoMid$ (Text$, BYVAL StartPos%, BYVAL NumChars%)
  320. DECLARE FUNCTION NoSegm$ (Text$, BYVAL StartPos%, BYVAL EndPos%)
  321. DECLARE FUNCTION NoSpace$ (Text$)
  322. DECLARE FUNCTION Repeat$ (Text$, BYVAL NumTimes%)
  323. DECLARE FUNCTION Reverse$(Text$)
  324. DECLARE FUNCTION RJustify$ (Text$, BYVAL LineWidth%)
  325. DECLARE FUNCTION Segm$ (Text$, BYVAL StartPos%, BYVAL EndPos%)
  326. DECLARE FUNCTION StrChkSum&(Text$)
  327. DECLARE FUNCTION StrInt%  ( IntVal$ ) 'forward order string(see IntStr)
  328. DECLARE FUNCTION StrLong& ( IntVal$ ) 'forward order string(see LongStr)
  329. DECLARE FUNCTION Trim$ (Text$)
  330. DECLARE FUNCTION TrimLCase$ (Text$)
  331. DECLARE FUNCTION TrimUCase$ (Text$)
  332.  
  333. DECLARE SUB ChgCase (Text$)
  334. DECLARE SUB ChgMid (Text$, BYVAL Position%, BYVAL NewValue%)
  335. DECLARE SUB LowerCase (Text$)
  336. DECLARE SUB MemToString (Text$, BYVAL MemSeg%, BYVAL MemPtr%, BYVAL NumBytes%)
  337. DECLARE SUB Replace (Text$, BYVAL OldChar%, BYVAL NewChar%)
  338. DECLARE SUB SetChainLink (Link$)
  339. DECLARE SUB SetAppLink (App$)
  340. DECLARE SUB StringToMem (Text$, BYVAL MemSeg%, BYVAL MemPtr%, BYVAL NumBytes%)
  341. DECLARE SUB UpperCase (Text$)
  342. DECLARE SUB XORString (Text$, BYVAL XORValue%)
  343. '==============================================================================
  344.  
  345.  
  346. '=============== SYSTEM/MISCELLANEOUS FUNCTIONS ===============================
  347. DECLARE FUNCTION DOSVersion% ()
  348.  
  349. DECLARE SUB ColdBoot ()
  350. DECLARE SUB FormFeed
  351. DECLARE SUB WarmBoot ()
  352. '==============================================================================
  353.  
  354.  
  355.  
  356.  
  357.